home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSDLNS.for < prev    next >
Text File  |  1991-04-13  |  427b  |  19 lines
  1.         SUBROUTINE GSDLNS(ILTYPE,ON1,OFF1,ON2,OFF2)
  2.         IMPLICIT NONE
  3. C
  4. C       Define Line Style
  5. C
  6.         REAL*4 ON1,OFF1,ON2,OFF2
  7.         INTEGER ILTYPE,INDEX
  8. C
  9.         INCLUDE DIGLIB$KOM:GCLTYP.PRM
  10. C
  11.         IF (ILTYPE .LT. 2 .OR. ILTYPE .GT. 4) RETURN
  12.         INDEX = ILTYPE-1
  13.         DIST(1,INDEX) = ON1
  14.         DIST(2,INDEX) = OFF1
  15.         DIST(3,INDEX) = ON2
  16.         DIST(4,INDEX) = OFF2
  17.         RETURN
  18.         END
  19.